home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / boxes / about3d / about.bas next >
Encoding:
BASIC Source File  |  1995-03-08  |  5.4 KB  |  112 lines
  1. Option Explicit
  2. Global Const WF_CPU286 = &H2
  3. Global Const WF_CPU386 = &H4
  4. Global Const WF_CPU486 = &H8
  5. Global Const WF_80x87 = &H400
  6. Global Const WF_STANDARD = &H10
  7. Global Const WF_ENHANCED = &H20
  8. Global Const WF_WINNT = &H4000
  9. Global Const WHITE = &HFFFFFF
  10. Global Const DARK_GRAY = &H808080
  11. Type SYSHEAPINFO
  12.    dwSize As Long
  13.    wUserFreePercent As Integer
  14.    wGDIFreePercent As Integer
  15.    hUserSegment As Integer
  16.    hGDISegment As Integer
  17. End Type
  18. Declare Function GetVersion% Lib "Kernel" ()
  19. Declare Function GetWinFlags& Lib "Kernel" ()
  20. Declare Function GetFreeSpace& Lib "Kernel" (ByVal wFlags%)
  21. Declare Function GlobalCompact& Lib "Kernel" (ByVal dwMinFree&)
  22. Declare Function SystemHeapInfo% Lib "toolhelp.dll" (shi As SYSHEAPINFO)
  23. Declare Function GetSystemDirectory% Lib "Kernel" (ByVal lpBuffer$, ByVal nSize%)
  24. Global gnProgVer!, gnDBVer!
  25. Global gsLicensedUser$, gsDataPath$, gsProgSer$
  26. Global gvDateLastCleanup As Variant
  27.  
  28. Sub Center (AnyForm As Form)
  29.    AnyForm.Left = (Screen.Width - AnyForm.Width) / 2
  30.    AnyForm.Top = (Screen.Height - AnyForm.Height) / 2
  31. End Sub
  32.  
  33. Sub MakeAll3D (AnyForm As Form)
  34.    'Global Const WHITE = &HFFFFFF
  35.    'Global Const DARK_GRAY = &H808080
  36.    Dim i%
  37.    For i = 0 To (AnyForm.Controls.Count - 1)
  38.       If TypeOf AnyForm.Controls(i) Is ComboBox Then
  39.          MakeCtl3D AnyForm.Controls(i)
  40.       ElseIf TypeOf AnyForm.Controls(i) Is CommandButton Then
  41.          MakeCtl3D AnyForm.Controls(i)
  42.       ElseIf TypeOf AnyForm.Controls(i) Is DirListBox Then
  43.          MakeCtl3D AnyForm.Controls(i)
  44.       ElseIf TypeOf AnyForm.Controls(i) Is DriveListBox Then
  45.          MakeCtl3D AnyForm.Controls(i)
  46.       ElseIf TypeOf AnyForm.Controls(i) Is FileListBox Then
  47.          MakeCtl3D AnyForm.Controls(i)
  48.       ElseIf TypeOf AnyForm.Controls(i) Is HScrollBar Then
  49.          MakeCtl3D AnyForm.Controls(i)
  50.       ElseIf TypeOf AnyForm.Controls(i) Is Label Then
  51.          MakeCtl3D AnyForm.Controls(i)
  52.       ElseIf TypeOf AnyForm.Controls(i) Is ListBox Then
  53.          MakeCtl3D AnyForm.Controls(i)
  54.       ElseIf TypeOf AnyForm.Controls(i) Is PictureBox Then
  55.          MakeCtl3D AnyForm.Controls(i)
  56.       ElseIf TypeOf AnyForm.Controls(i) Is TextBox Then
  57.          MakeCtl3D AnyForm.Controls(i)
  58.       ElseIf TypeOf AnyForm.Controls(i) Is VScrollBar Then
  59.          MakeCtl3D AnyForm.Controls(i)
  60.       End If
  61.    Next i
  62. End Sub
  63.  
  64. Sub MakeCtl3D (TargetControl As Control)
  65.    Dim iControlTop%, iControlLeft%, iControlRight%, iControlBottom%
  66.    Dim OriginalDrawWidth%, OriginalAutoRedraw%, iOriginalScaleMode%
  67.    OriginalDrawWidth = TargetControl.Parent.DrawWidth    'Save Original DrawWidth
  68.    OriginalAutoRedraw = TargetControl.Parent.AutoRedraw  'Save Original AutoRedraw
  69.    iOriginalScaleMode = TargetControl.Parent.ScaleMode   'Save Original ScaleMode
  70.    TargetControl.Parent.DrawWidth = 1                    'Lines will be draw 1 unit thick
  71.    TargetControl.Parent.AutoRedraw = True                'Let Windows automatically redraw
  72.    TargetControl.Parent.ScaleMode = 1                    'Set ScaleMode to Twips
  73.    iControlTop = TargetControl.Top - Screen.TwipsPerPixelY
  74.    iControlLeft = TargetControl.Left - Screen.TwipsPerPixelX
  75.    iControlRight = TargetControl.Left + TargetControl.Width
  76.    iControlBottom = TargetControl.Top + TargetControl.Height
  77.    TargetControl.Parent.Line (iControlLeft, iControlTop)-(iControlRight, iControlTop), DARK_GRAY
  78.    TargetControl.Parent.Line (iControlLeft, iControlTop)-(iControlLeft, iControlBottom), DARK_GRAY
  79.    TargetControl.Parent.Line (iControlLeft, iControlBottom)-(iControlRight + Screen.TwipsPerPixelY, iControlBottom), WHITE
  80.    TargetControl.Parent.Line (iControlRight, iControlTop)-(iControlRight, iControlBottom + Screen.TwipsPerPixelX), WHITE
  81.    TargetControl.Parent.DrawWidth = OriginalDrawWidth    'Reset Original DrawWidth
  82.    TargetControl.Parent.AutoRedraw = OriginalAutoRedraw  'Reset Original AutoRedraw
  83.    TargetControl.Parent.ScaleMode = iOriginalScaleMode   'Reset Original ScaleMode
  84. End Sub
  85.  
  86. Sub MakeFrm3D (TargetForm As Form)
  87.    Dim iFormTop%, iFormLeft%, iFormRight%, iFormBottom%
  88.    Dim OriginalDrawWidth%, OriginalAutoRedraw%, iOriginalScaleMode%
  89.    OriginalDrawWidth = TargetForm.DrawWidth    'Save Original DrawWidth
  90.    OriginalAutoRedraw = TargetForm.AutoRedraw  'Save Original AutoRedraw
  91.    iOriginalScaleMode = TargetForm.ScaleMode   'Save Original ScaleMode
  92.    TargetForm.DrawWidth = 1                    'Lines will be drawn 1 unit thick
  93.    TargetForm.AutoRedraw = True                'Let Windows automatically repaint lines
  94.    TargetForm.ScaleMode = 1                    'Set ScaleMode to Twips
  95.    iFormTop = 0
  96.    iFormLeft = 0
  97.    iFormRight = TargetForm.ScaleWidth - Screen.TwipsPerPixelY
  98.    iFormBottom = TargetForm.ScaleHeight - Screen.TwipsPerPixelX
  99.    TargetForm.Line (iFormLeft, iFormTop)-(iFormRight, iFormTop), WHITE
  100.    TargetForm.Line (iFormLeft, iFormTop)-(iFormLeft, iFormBottom), WHITE
  101.    TargetForm.Line (iFormLeft, iFormBottom)-(iFormRight + Screen.TwipsPerPixelY, iFormBottom), DARK_GRAY
  102.    TargetForm.Line (iFormRight, iFormTop)-(iFormRight, iFormBottom + Screen.TwipsPerPixelX), DARK_GRAY
  103.    TargetForm.DrawWidth = OriginalDrawWidth    'Reset Original DrawWidth
  104.    TargetForm.AutoRedraw = OriginalAutoRedraw  'Reset Original AutoRedraw
  105.    TargetForm.ScaleMode = iOriginalScaleMode   'Reset Original ScaleMode
  106. End Sub
  107.  
  108. Function WindowsDir$ ()
  109.    WindowsDir = Environ$("windir")
  110. End Function
  111.  
  112.